Option Explicit
Sub F_Sample004()
    'ոF_Data.csv
    Dim myCnc1   As String
    Dim myCnc2   As String
    Dim myCnc3   As String
    Dim myCmd    As String
    Worksheets.Add                                         'sWu@
    myCnc1 = "ODBC;"
    myCnc2 = "DBQ=" & ThisWorkbook.Path & ";"
    'wXʵ{
    myCnc3 = "Driver={Driver da Microsoft para arquivos texto (*.txt; *.csv)};"
    'myCnc3 = "Driver={Microsoft Text Driver (*.txt; *.csv)};"
    'myCnc3 = "Driver={Microsoft Text-Treiber (*.txt; *.csv)};"
    'HSQLӫwŪJɮ
    myCmd = "SELECT * FROM F_Data.csv F_Data ORDER BY F_Data.s"
    With ActiveSheet.QueryTables.Add( _
        Connection:=myCnc1 & myCnc2 & myCnc3, _
        Destination:=Range("A1"))                               'ŪJؼxs
        .CommandText = myCmd
        .Refresh
    End With
End Sub
